home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / explor1a / explorer.bas < prev    next >
BASIC Source File  |  1999-09-26  |  3KB  |  81 lines
  1. Attribute VB_Name = "EplorerMod1"
  2. Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  3. Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  4. Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  5. Public Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
  6. Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
  7. Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
  8.        (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  9.  
  10.  
  11. Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" _
  12.        (ByVal lpRootPathName As String, _
  13.        lpSectorsPerCluster As Long, _
  14.        lpBytesPerSector As Long, _
  15.        lpNumberOfFreeClusters As Long, _
  16.        lpTotalNumberOfClusters As Long) As Long
  17.    
  18.  
  19. Public NbFile As Long
  20. Public FileFSToOpen As String
  21. Public StringToFind As String
  22. Public ProgressCancel As Boolean
  23. Public TypeView
  24.  
  25. Public Const MAX_PATH As Long = 260
  26. Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
  27. Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
  28. Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  29. Public Const FILE_ATTRIBUTE_HIDDEN = &H2
  30. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  31. Public Const FILE_ATTRIBUTE_READONLY = &H1
  32. Public Const FILE_ATTRIBUTE_SYSTEM = &H4
  33. Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
  34.    
  35. Type FileTime
  36.     dwLowDateTime As Long
  37.     dwHighDateTime As Long
  38. End Type
  39.    
  40. Type SaveF
  41.    StingToSave As String
  42. End Type
  43.    
  44. Public Type WIN32_FIND_DATA
  45.     dwFileAttributes As Long
  46.     ftCreationTime As FileTime
  47.     ftLastAccessTime As FileTime
  48.     ftLastWriteTime As FileTime
  49.     nFileSizeHigh As Long
  50.     nFileSizeLow As Long
  51.     dwReserved0 As Long
  52.     dwReserved1 As Long
  53.     cFileName As String * MAX_PATH
  54.     cAlternate As String * 14
  55. End Type
  56.  
  57.  
  58.    Public Type RANDYS_OWN_DRIVE_INFO
  59.        DrvSectors As Long
  60.        DrvBytesPerSector As Long
  61.        DrvFreeClusters As Long
  62.        DrvTotalClusters As Long
  63.        DrvSpaceFree As Long
  64.        DrvSpaceUsed As Long
  65.        DrvSpaceTotal As Long
  66.   End Type
  67.         
  68.  
  69. Public Function StripNull(ByVal WhatStr As String) As String
  70.    Dim pos As Integer
  71.     pos = InStr(WhatStr, Chr$(0))
  72.     If pos > 0 Then
  73.        StripNull = Left$(WhatStr, pos - 1)
  74.     Else
  75.        StripNull = WhatStr
  76.     End If
  77. End Function
  78.  
  79.  
  80.            
  81.